Top 10k strings from Worm (19xx)(-).bas in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX-81 & Sinclair QL - Various / Sinclair QL - Various (TOSEC-v2006-04-09) /

Back to the directory listing

   1 450 END DEFine 
   1 440 NEXT loop
   1 430 NEXT n
   1 420 FILL 0:INK 0:LINE n,100 +loop TO n+b/2,100+a+loop TO n+b,100+loop
   1 410 FILL 1:INK 2,0,c:LINE n, 100+loop TO n+b/2,100+a+loop TO n+b,100+loop
   1 400 b=INT(RND(50 TO 100))
   1 390 a=INT(RND(1 TO (loop+6)*10)):a=a+10+10*SIN(n/100*PI)
   1 380 FOR n=-30 TO 300 STEP 30
   1 370 c=(1*(c=3))+(3*(c=1))
   1 360 FOR loop=1 TO -5 STEP -1
   1 340 DEFine PROCedure mount
   1 330 FILL 1:INK 0:CIRCLE 130,160,5,.8,RAD(0):PAUSE
   1 320 FILL 1:INK 0:CIRCLE 110,160,5,.8,RAD(0)
   1 310 FILL 0:INK 0:CIRCLE 130,160,15,.8,RAD(0)
   1 300 FILL 1:INK 7:CIRCLE 130,160,15,.8,RAD(0)
   1 290 FILL 0:INK 0:CIRCLE 110,160,15,.8,RAD(0)
   1 280 FILL 1:INK 7:CIRCLE 110,160,15,.8,RAD(0)
   1 270 c=(2*(c=4))+(4*(c=2)):NEXT n
   1 260 FILL 0:INK 0:CIRCLE 100+(a-n1),100+(b-n1),n/8
   1 250 FILL 1:INK c:CIRCLE 100+(a-n1),100+(b-n1),n/8
   1 240 b=n1-n1*COS(n/(26+x)*PI)
   1 230 a=n1+n1*SIN(n/52*PI)
   1 220 x=n1+n1*COS(n/104*PI)
   1 210 n1=n/1.5
   1 200 FOR n=0 TO 152 STEP .5
   1 190 c=2:BORDER #1,1,0
   1 180 REMark ground:mount
   1 170 FILL 0:INK 0
   1 160 FILL 1:INK 4:LINE 0,100 TO 400,100 TO 400,0 TO 0,0 TO 0,100
   1 150 FILL 1:INK 2:CIRCLE #1,300,130,50
   1 140 FILL 1:REMark write:sky
   1 130 PAPER #1,7,2,1:CLS #1:SCALE 200,0,0
   1 120 OPEN #4,scr_445x195a45x28:PAPER #4,0:CLS #4
   1 110 OPEN #3,scr_512x256a0x0: PAPER #3,4:CLS #3
   1 100 MODE 0:OVER 0